﻿Imports DataAcessLayer
Imports BusinessLogic
Imports ZakaFrontEnd

Partial Public Class ZakaPessoal1
    Inherits System.Web.UI.Page

    Dim DAL As New DAL
    Dim BL As New BL
    Dim IDUtilizador = DAL.ObterUserIDPorNome(User.Identity.Name).FirstOrDefault.IDUser

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim rank = DAL.ObterRankPorUserSP(IDUtilizador).FirstOrDefault

        PreencheDados()

        'Dim yValues As Integer() = {rank.Golos_Marcados, rank.Vitorias, rank.Empates, rank.Derrotas, rank.Golos_Sofridos, rank.MVP}
        'Dim xValues As String() = {"Golos Marcados", "Vitorias", "Empates", "Derrotas", "Golos Sofridos", "MVP"}
        'Chart1.Series("Series1").Points.DataBindXY(xValues, yValues)

    End Sub

    Protected Sub btnAlterarPass_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAlterarPass.Click

        If BL.AlterarPass(txtPassAntiga.Text, txtNovaPass.Text, IDUtilizador) Then

            lblMensagem.Text = "Password Alterada com Sucesso!"

        Else

            lblMensagem.Text = "Ocorreu um erro!"
        End If

    End Sub

    Private Sub PreencheDados()

        Dim dados = DAL.ObterDadosJogador(IDUtilizador).FirstOrDefault
        Dim infoUser = DAL.ObterDadosUserPorID(IDUtilizador).FirstOrDefault

        lbl_Jogos.Text = dados.NumJogos
        lbl_MVP.Text = dados.MVP
        lbl_Nome.Text = dados.NomeUtilizador
        lbl_GMarcados.Text = "-"

        txtDisplayName.Text = infoUser.NomeUtilizador
        txtUserName.Text = infoUser.UserLogin
        hfPass.Value = infoUser.Password
        

        rptMaisVitorias.DataSource = DAL.ObterMaisVitorias
        rptMaisVitorias.DataBind()

        rptMenosVitorias.DataSource = DAL.ObterMenosVitorias
        rptMenosVitorias.DataBind()

        rptMaisEmpates.DataSource = DAL.ObterMaisEmpates
        rptMaisEmpates.DataBind()

        rptMenosEmpates.DataSource = DAL.ObterMenosEmpates
        rptMenosEmpates.DataBind()

        rptMaisDerrotas.DataSource = DAL.ObterMaisDerrotas
        rptMaisDerrotas.DataBind()

        rptMenosDerrotas.DataSource = DAL.ObterMenosDerrotas
        rptMenosDerrotas.DataBind()

    End Sub

    Protected Sub btnAlterarDados_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAlterarDados.Click

        If BL.AlterarDados(txtUserName.Text, txtDisplayName.Text, hfPass.Value, IDUtilizador) Then

            lblMensagem.Text = "Dados Alterados com Sucesso!"

        Else

            lblMensagem.Text = "Ocorreu um erro!"
        End If

    End Sub
End Class